VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "XbrlElement"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public tag As String
Public schema As String
Public dec As String
Public isDuri As Boolean
Dim vals(3) As Variant
Public section As Integer
Public preRel As Integer
Public Property Get value(yr As Integer) As Variant

value = vals(yr)

End Property
Public Property Let value(yr As Integer, v As Variant)

vals(yr) = v

End Property
Property Get compkey(keyNo As Integer) As String

Select Case keyNo
    Case 0
        compkey = tag
    Case 3
        compkey = tag
End Select

End Property
